
module StrMap = Map.Make(String)

let merge_maps a b =
	StrMap.fold (fun key value b -> StrMap.add key value b) a b

let merge_maps_list lst =
	List.fold_left (fun a b -> merge_maps a b) StrMap.empty lst

